(sgml-guess-indent): Handle tabs correctly.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index bad9dcc4a34c5166fb2b4c78de9dc178d81394c9..f5bd323641233342da0c628a33b4e03b0f994201 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1288,7 +1288,7 @@ Add this to `sgml-mode-hook' for convenience."
     (if (re-search-forward "^\\([ \t]+\\)<" 500 'noerror)
         (progn
           (set (make-local-variable 'sgml-basic-offset)
-               (length (match-string 1)))
+               (1- (current-column)))
           (message "Guessed sgml-basic-offset = %d"
                    sgml-basic-offset)
           ))))